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INHALTSVERZEICHNIS Bei uns konnen Sie 
i nutmachen 



Compute r-Kon t akt ist die Homceomputerzeitung 
zum Mitriiachen. Sie k:innen bei uns Programme cin- 
senden, Biichei hespj-echen, Spk-lu best hici ben. Tip; 
und Tricks schicken, Fragcn stcllcn und Ihre Meinung 
, sagen. Wit habcn fUr allcs ein offenes Ohr. Damit wit 
aber lb re Einseadmtg sehndl bearbeiten konnen und 
alles mit rcebii;n Dinj.i 11 zujchr. in Onsen Sie folgende 
Punkie bcachtcn: 



2. Gcbcn Sie genau an, welches Getai Sie haben. 
Lauft das Frogiamm nut mil Speiihererweilernn- 
gen oder Zusatzgeraten, miissen diese unbtdingt 
angegebenwerden, 

3. Zu jedem Programm sollte eine Programmbe- 
sehreibung beiliegtn. Diese kanti mit der Schreib- 
maschine oder mit eiriem Drucker geschrieben 
-. ;i: i ■:;: /.-. il:-; ; "\: ::!■■.■■ / :. ■.■■■. 
damit nochKorrekturen oder Aninerkun^ij iivLriL'i - 
fugt werden konnen. 

4. Zu jedem ftfogt ag ga jehfifl -:.\ ..'.ndsatzlich ein Li- 
sting und eine Cassette oder Diskette. Wenn Sie 
aber keinen Drucker haben. reicnt auch derDaten- 
trager. Speichem Sie zur Sicherheit das Progtamm 
zweimal ab. Cassetten und Disketten konnen wit 
nur zuriicksenden, wenn Rilckporto beiliegl. 



6 Tips und Tricks 



.. Wenn wir ein Programm von Ihoen abdrucken, vet- 
giiiei: wi i- ein Honorar (iit den einmaligen Abdruck 
und die Nutzung des Programms in unserem Cas- 
setlenservice. Die Hohe des Honorars riclitei sreli 
nach der Lange und Qualitat des Programms. Wir 
verguten im ailgemeinen bis zu 300 DM. for sehr 
gute Programme kann es auch mehr sein. 

. VI ii der Einsendung tub: Jet V'sriasser dieZus 
mung zum Abdruck und erklart, daB er Urheber 
der Teste und Programme 1st uitd das uneingc 
schrankte Nutzungsrecht daran besitzt. Sollte der 
Einsender Programme einschieken, an denen er 
kein Urheberrecht und kein NLnzungsredil bs-iii/,1. 
hat er bei Abdruck durcti un- ewaigc Sehadcnstt- 
satzansp ruche von seiten Driller selbsl zu iragen. 



Die nachste Ausgabe 

^Computer Kontakt « 

erscheint am 28. Sept. 1987 




Immer druckfrisch im 

Briefkasten! 

Die C Kirn 



00 



Traben- 
Trarbach 



Aufcatzc in Jet Fadtprcs 
lausch von Piugiammen. 



Niirnberg paste. »biM <&» 



Wer sucht noch alte 
CK-Hefte? 



Kontaktgesucht! 






Bestellscheln fur CK-Hefte 

IthmiKlucfolgtinicCK-HdlebeBeltai! 

... . Ex. HcfUiwl (4^0DM) 

....En. Hi'Miili (4.50DM) 

.... Es. Heft AuBUst-Septemter (4.511 OM) 

... Ex. Hed November (4 ,50 DM) 



.. Es. Hu'i Auril-Mai ('..ill OM) 
....Ei.HrftJuni-M(5.50DM) 
... Ex.HcftAusiist-Septeint.e.(5,50DM) 

. . F.». I left II1i;Knih=.T-.r juiuiii ■it.-Sl (3.S0DM.) . 

.... El. Heft April-Mai (5,50 DM) 



Meine Ansehrift: 



Kirchdorf 
(Ostcrreicb) 



Di^kSvirlem, tun ETfahnjngen 



FUNDGRUBE 



Computermarkt - EmS7&?5 ZL 

Tausend Wege, sich HSESliS 

schlau zu machen £"3lS^S^.' 

Verlag Rororo LssEr schnel! mid umlassend 

232Seiten, 12.80DM fiber das Angebol infor 

ISBN 3-499-18137-1 Id voscbiedeneo Karat 



en bJdcle eine Fiage- 



Allcs auf einen Blick 



^■likliiii; l;c warden, daB cm zenwil 
Nculing acbnell den Uberblick bcdien 



^ ' Aufsi-LiKkiTi Bird &m Sndt 

Zwel neue deutsche ^jg § 2s?,*t iT 
Grafikadventures mit 
"verstandigem" Parser HI 

Mil Al|.„ ; , i !V: ^ k«i«M.I.': m.U.. Sii. ' 

iv_- r,„l N-j i i; . ; .Sr.iv^Hrf fahrlichen Auftrag im fsrncn „ ■ ■. ^ l '"," ! ' 
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Rheinischer 
Computermarkt 



SINCLAIR SPECTRUM 



Computer Kon;, .- ■ 






W%-^A 



Or \ '' 

sinmlairr 



Hallo Freunde, 
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Conquer Kontakt 8-9/B7 



Nemesis 






Short Circuit 
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Silent Service 



ijesehbei Obei- foljwrlelvuwe aus in 
plitoliche Stills such cinraal linger mi 
nildasgcfahrlicli Spivl bi<diif!i»nm«i:l 



gLtM.ilariniTei-nudifilrdcnAu- ttntiiMgusw. 

-I ST. Auf il««.n Ridisici MASCHENhNKAUM: Dii 



Shockway Rider 



i. tttji die Scliatlen mark 

-handelt KARTENRAUM: El 

^I.umei- dcr OricnikTim,'.. A 
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Cam outer Kontakt 8-9/87 



80 KByte frei programmierbar 



»crdcn. RAMTOF 






Der Schaltplao dcs Softs' 
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Assemblertips 
fur den Spectrum 

Tei] 15: Mathemaiisi-ht Taktik fur das Holzchcnspid 



Basic-Listing 



... : i : 



plel 



COMPUTER KONTAKT 1927 

■ FN A(X«)-CODE XO-49-39* 

■ FN B(X*)=16*fN AfX*fi)> 



A<XSI2>) 

; LET A= 32000 

I IF PEEK (A + l 



24)020 1 THEN 6 



I RANDOMIZE 

I LET Hauf=3+INT (3*RND> 



:=Haut)*<3-tl2*RN 



120 CLS : PRINT It- 
lapiel" 

130 PRINT AT 3.01 ■ 
linen abwechsalnd 

"iHsuf: 11 Hsufen be 



ner das letzte 



: PRINT "Sieger 
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130 PRIh 



"a: letztea h 
l: letztas H 



dIz bringt Vet- lust" 
163 LET T*-INKEY* 
170 IF T$<"0' OR T*>"1" THEN GO 

TO 160 

180 POKE A.VAL T* 

190 PRINT AT 121VAL T*,0i FLASH 

liT* 

200 PRINT AT 13,0! "Wer 'soil beg 
innen?" 

210 PRINT "M: Du"-C: Ich" 

220 POKE Z3638.B: REM Caps lack 

230 LET B«=IWKEVS 

240 IF MO'M' AND B*<>"C THEN 

GC TO 230 

230 CLS : PRINT TAB 10| "HAlzche 
nsplel'IAT 3,0; "Haufen-Nr. ■{ 

260 FOR 1=1 TO Hau* 

280 PLOT 80+1*24,139: DRAW 15,0 

290 NEXT I 

300 PRINT AT 5,0i'HAlzer--Z»hl" 

310 GO SUB 900 

320 IF BS="M" THEN GO TO 520 

330 DIM AB<192): PRINT AT 9,0;A 



>USR i 



: LET N=PEE 



18,0;"Noch ein I 



340 LET h 
K (A+ll) 
330 IF N Tl 
360 PRINT I 
i ich habe I 
370 PRINT I 
elchen (J/N) 
380 LET B*=INKEYS 
390 IF BSO'J" AND B*<>"N" THE 
GO TO 380 

400 IF B*="N' THEN STOP 
410 GO TO 60 
420 PRINT AT 3,ll+3#Hl FLASH 1 

430 PRO 



' AND I 



' HAlier- AND N 



440 LET Sum=Sum-N 

450 PAUSE 30 

460 GG SUB 900 

470 PAUSE 50 

480 PRINT AT 3,11+3*H[ FLASH 0i 

490 IF Sum>VAL T* THEN GO TO 32 

500 PRINT AT 13,0; -Ich habe gew 

510 BO TO 370 

520 INPUT "Van nelchem Haufen n 

330 IF H<1 OR H>Haut OR NOT PEE 



K (A+H) OR HOINT H THEN BEEP .3 
,40! GO TO 520 
540 PRINT AT 3,ll+3*Hi FLASH li 

550 IF PEEK (A+H)*l THEN LET N= 
IS GO TO 380 

560 INPUT "Wleviel HAlzw <1-"I 
PEEK (Am);"); -;N 

570 IF n;j OR N>PEEK (A+H> OR N 
OINT N THEN BEEP .3,40; GO TO 5 
60 

560 POKE (A+HI.PEEK (A+Hl-N 

390 GO SUB 900 

600 LET Sum=Sum-N 

610 PRINT AT 3,I1+3*H; FLASH i 

620 IF SumOYAL T* THEN SO TO 
50 
630 PRINT AT 13, 0i "Gratul iere 
du hast geuonnen! ■ 
640 GO TO 370 
650 IF Sum THEN GO TO 330 
660 PRINT AT 13,0) "Du hast ver 

670 GO TO 370 

B99: 

900 FOR 1=1 TO Hauf 

910 LET K-PEEK <A4I> 

920 PRINT AT 5,10»3*Ii" " AND 



2000 POKE 23675,12: POKE 23676,1 

23 

2010 RESTORE : CLEAR 31999 

2020 LET A=32012 

2030 LET Z=3000 

2040 PRINT "Zoilo "i2i*: "J 

2050 READ A*: LET S=0 

2060 IF LEN A*<4 OR LEN A*/2<>IN 

T (LEN A9/2I THEN GO TO 2160 

2070 FOR 1=1 TO LEN A*-2 STEP Z 

2080 LET X=FN El A* (I TO 1*1)1 

2090 LET S=S+X 

2100 POKE A,X: LET A-A+l 

2110 NEXT I 

2120 IF FN B(A*(I TO ])<>e-256*I 



3000 DATA -220014222222140021007 
de3010000505804237e-fe02380114bb3 
B045*"0B7B08a94f78fe093Beae 10600d 
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d210a7d7afe0Z381c5Blc237ea728faa 9000 SAVE "Bolz 
9b«.280330*40e3d4f?6ed<I4dd7701dd7 9B10 STOP 
300714bc9c5084f09dd770008dd?001c 9500 SAVE *"m'i 
Ia73a007dz005b9c8afl802aba9777b9 
6dd7701084+c94t:" 9510 VERIFY *"m 
899?: 9520 STOP 


LINE 2000 
;*halz* LINE 200 
Sli'holz* 


Assembler-Source \ i:,/^""^"',!;™"™!"™"^™. 




Tipzum 
Artstudio 

■ 1". 1 '■■ ■ ■ '"i 

..:■::■: 

fl POKE ^243,48: RANDO- 
MIZE USR2S071 




* Business- S«ltware * 

* + Zubehdi - IBM - * 

* Commoif ore - Sinclair * 

SP-Statlslk II 48- 
■ r x-i"-T:.^ 'J-CoiTipilar jg »- 

Fa. Lucksr/GK 

6239 Krittel 
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1. RANDOMIZE U 



Bascie-MC -Generator 



90 CLEAR 64999 
100 FOR b=65000 TO 65165 
110 READ a 



120 POKE b,a 

1000 DATA 205,107,13,62,2,205,1, 

22,14,0,42,63,92,237,91,75,92,23 

7,82,200,25,197,205,40,26,193,62 

,40,215,35,94,35,86,35,229,221,2 

25,221,25,221,43,221,43,205,106, 

254,62,41 

1010 DATA 215,126,254,234,32,2,2 

03,193, 126,254,32,56,4,215,35,24 

,247,203,65,32,29,254,13,40,39,2 

54,14,32,39,35,254,0,35,35,94,35 

,36,35,32,2,24,228,62,94,215,205 

,106,254,24 

1020 DATA 220,221,229,209,229,23 

7,82,40,3,225,24,7,203,129,225,2 

15,35,24,153,22,0,95,62,123,215, 

205,106,254,62,125,215,24,180,22 

9,197,235,30,255, 1,248,216,205,4 

2,25,1,24 

1030 DATA 252,205,42,25,1,156,25 

5,205,42,25,1,246,255,205,42,25, 

125, 205i 239, 21, 193,225,201 

2000 PRINT "Maschi nen code kann a 

2100 SAVE "li5ter"CCDE 65000,166 
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INDIVIDUAL 
SOFTWARE 
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Knobelkiste fiir den Spectrum 16K 






AlUemeine Beschrelbung 



p-und. uim-ine rmiallcllil -lied- Erfolgt ill 



.i;.;.i;-vi i'l i. Darin «iid derail 
KiSrici-liiirciitlr Hijh-5a-.il- i'i 
[iidiiiL-rn OS 5550 i iZ 55u?i. 






Rin-k-.-iiriins /'i 7eile I :r.lfl. I. 



:; Spielplans. „(, jg 



.S 1700). Letztcn: pfat so 



ZUgen 211 lOser, kann durch foljainden Spielfe!diiber;>ru- 



^ P^C T|» U M^R EJP A R * T H!? I 



» 1 .!iz r »r ir?if's™A^ 

u. sn „?„-„H ( Mat^s^"" 1 
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Computer Kontakt B-9/87 



writcrc Tasltnablrags 






() = High-Store 




SINCLAIR SPECTRUM 




SINCLAIR SPECTRUM 



Computer Komakt 8- 




Spectrum 

User Club 

Wuppertal 

Club-Zeltschrlft 

Tips, Tricks, 

Bauanleitungen 

Vorstellung neuester 

Programme 

Erfah rung sberic rite 

MHglieder- Borse 

Club-Software 



Rolf Knorre, 
Postfaoh200i02, 
5600 Wuppertal 2 



ft 





REM F 










REM 


Haerz 








REM 






Kontakt 




REM 










REM 




POSTER 




It 


LOAD 


"SCREENS 






LET a 








3fl 


FOB x 


| TO 2 


5 STEP 


32 


35 


FOB y 


175 TO 


STE1 


-1 


40 


FOR a 


X TO x 


31 






LET p 


POINT 






51 


IF p= 


THEN 


LET a$ 


-a$+" " 


52 


IF p= 


THEN 


LET ag 


-aS+"X" 


53 


PLOT 


OVER 1 


a,y 




ea 


NEXT a 






62 


LPRItJT aS 






65 


LET a 








78 


NEXT y 






6ffl 


NEXT x 







Analle 

Programm-Einsender! 



Wagner Computer 




SINCLAIR SPECTRUM 



Monster-Move 



Mudlg alle Aufgtix 



cTSptitei CODEAI(A):IS 



SCREENCOPV 



String cue 235 potar,. <1 



Lies! bei PRIM 4?i»s; 



COHPUTERSWDIO 1 

CantmiasstiiaM'lM I 
Kzeuzstcage 13 I 

sddo mnefisB 2 I 

rel. {0S91267941 I 
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Dateo. bci 41000 abgelegt. raft be del OiOBc rait 

man rNl'I'folgiLulcmialtai auf: S pri I ■-■ nusgesrSialid. t 

RANDOMIZE USR 63497: mchr i"'™* 1 - » la 

PRINT 4 UXJD " le «nzeJnui sprites r 



Verfilgung! Die Werte i 



MOMO 
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• DISC-MANAGER* a,™ 



!. REITEMANN Tetafon 02 11/432870 
JHenbachstrafie 11 und 069/5974485 

JOO Duaseldorf 30 (nach 18.00 Uhr) 



Slopp-Bytcs, die das El 










FSUtlE: "iF: BEEF ,1,1: HIP 


,42,17,233,1115 








H (ATA 353,121,1,254,255,211, 


] CUM 558.17 






253,31,4,253,1134 


tlETMM* 






2) DATA 94,5,753,71,1,253,121, 


3 FOB B=!l TO 110 




21 DATA 195, 12,740,195,93,253, 


1,111,353,1101 


4 RE5T0KO 




in,i7,n3,m,nu 


31 DATA 121, II, 113,253, 121, 1,3 


3 LET l>t 




22 data 19,253,243,215,37,34a, 


53,239,229, 117,15(2 


4 FOB J*l TO ia 




2n,m,K2,iK,mt 


31 (ATA 41, 14,253, 124,6, 117,32 


7 REDD E 




n MA 41,213, J 15,131,2*8, 251 


,5,215,147,997 


a PUKE A,E 






32 (ATA 253,24,3,2(5,222,251,2 


9L£T**I 




24 DATA 313,753, I24,I.2H,2». 


25,253,225,1,1411 






41,20 ,353,71, 1532 


33 DATA l?,l, 253,9 ,253, 121,2,2 


II lEOO 




25 DATA 7,131,117,41,15,253,12 


54,255,32,1191 






4,0,231,137,1193 


34 DATA 211,211,253,42,17,353, 


13 IF COf THEH PR1HT 


FLASH 


71 DATA 71,197,215,221,240,193 


253,121,9,111,1414 


li'FEHLER IH DATAZE1LE ' 


™HB 


i4l,l, 14,347,1445 


35 DATA 253,124, II, 113, 1,32,1, 


CmtTER NERT: ■iC'-SELESBK PBUE 


27 DATA 14,12, 253,9,34 ,22! ,253 


9,125,753,913 
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31 MIA 119, 9,124,233,119, 11,1 




94 MTA 7,21,195,213,251,251,2 


4,12,233,9,922 


95,251,213,124,1441 


5,192,195,84,1443 


37 mta 233,121,2,234,255,32,2 


44 DATA 3, IB7, 194,95,151,253,1 


95 MTA 249,21,29,253,114,4,25 


25,253,42,17,1459 


24,7,254,3,1372 


3,115,5,253,1294 


39 MTA 133,53,14,233,11,59,14 








124,1,253,1)33 




31 DMA *,5l,l*,M3 1 i,l 1 L*,l!» 


48 DATA 71,3,253,119,3,233,112 


97 MTA 32,18,253,54,7,4,253,1 


,233,i24,asi 


,1,193,184,1193 




14 MTA 2,111,253,126,11,113,5 


49 DATA 149,21,233,114,4,253,1 


98 MTA 194,138,249,233,54,7,3 


3,43,237,41,1133 


24,2,184,32,1239 


,195,142,249,1514 


II MTA 125, 253, 1H, 9, 121,253, 








,4,253,54,1115 


54,7,2,195,1328 


12 MTB 253,9,253,124,2,254,25 


71 MTA 7,11,21,171,254,15,32, 


III MTA 92,259,233,121,3,187,1 


5, 32, 223, 211, 14B 


7,253,54,824 


94,218,151,233,1817 


43 MTA 253,64,1,253,24,5,122, 


72 DATA 7,17,195,142,249,151,2 


III MTA 124,7,234,9,32,131,253 


254,255,211, 1521 


1,32,7,253,1194 


,54,7,11,984 


44 MTA 253,124,7,254,2,41,121 


73 MTA 54,7,14,195,142,249,25 


112 MTA 193,211,249,21,133,114 


,254,3,41,1m 


4,23,192,195,1345 


,4,253,124,2,1427 


45 MTA 114,254,22,41,112,254, 


21 MTA 34,219,21,29,253,111,1 


113 MTA 131,194,218,151,253,12 


5,212,21,251,1275 


,233,115,5,1128 


6,7,251,11,32,1531 


44 DATA 254,4,212,21,251,254,2 


73 Mf* 253,124,2,164,32,37,25 


114 MTA 7,253,54,7,4,195,142,2 


4,2(2,21,251, I4B2 


3, 121, 7, 251, 1271 


49,254,14,1211 




74 MTA 4,32,13,151,34,7,9,153 


115 MTA 32,7,153,54,7,19,195,1 




,124,3,741 


42,749,251,1231 


43 MTA 254,24,212,221,251,254 


77 MTA 117,194,139,249,153,54 


116 MTA 19,31,7,253,54,2,13,19 




,7,12,195,142,1451 


5,112,249,991 


49 DATA 254,12,212, H, 251, 254, 


78 MTA 249,254,24,112,84,249, 


117 MTA 234,27,191,193,94,141, 


23, 21!, 9! ,25 1,1451 


253,54,7,11,1319 


21,28,233,114,1419 


51 DATA 195,98,251,23,253,115, 


79 MTA 195,142,249,253,121,3, 




5,253,121,3,1311 


187,194,218,251,1838 


131,32,37,1913 


51 DATA 137,114,213,251,253,12 


91 MTA 2S3, 124, 7,254, 4, 32,231 




4,7,254,1,32,1521 


,253,54,7,1222 


,153,54,7,1111 


52 DATA 4,253, 54,7,7,24,111,25 


il MTA 3, 195,211, 249,195, 112, 


111 DATA 3,253,121,3,117,194,13 


4,13,32,751 


249,195,218,251,1927 


8,249,253,54,1441 


53 DATA 7,253,54,7,15,195,213, 


92 MTA 254,1,212,37,149,254,1 


111 MIA 7,4,195,142,249,254,29 


251,254,14,1243 


3,212,37,249,1493 ' 




54 MTA 32,7,253,54,7,14,195,2 


13 MTA 254,14,292,37,249,214, 




19,251,254,1237 


21,292,37,249,1319 




55 [ATA 21,192,253,71,1,253,73 


94 MTA 254,4,212,123,249,234, 




,1,253,112,1233 


15,292,225,249, 1B79 




54 MTA 4,253,113,5,195,218,25 


95 MTA 254,21,292,215,149,254 


111 MTA 253,54,7,1,193,111,219 


1,21,23,29,1341 




,253,124,9,1315 


52 MTA 114,4,253,115,5,253,12 




115 MTA 111,253,114,11,113,1,1 


4,2,134,32,1191 




28,1,253,124,1111 


53 DATA 77,253,124,7,254,3,32, 


97 MTA 41,24,254,25,292,174,2 


114 MTA 7,251,5,51,21,254,11,3 


11,253,54,1191 


59,254,19,212,1139 


4,11,151,929 


59 MTA7, 12, 253, 124, 3, 187, 32, 


89 MTA 45,151, 254, 14,212, 41 ,2 


117 MTA 21,218,251,15,54,11,15 


4,253,54,932 


51,254,19,212,1539 


4,19,51,1,891 


41 MTA 7,9,24,24,253,124,1,25 


89 MTA 45,251,154,27,212,45,2 


118 MTA 55,13,237,11,24,1,9,12 


3,71,2,743 


51,211,29,253,1558 


5,253,119,952 


it MB 253,119,2,253,112,1,19 


91 MTA 115,5,253,124,3,197,19 


119 MTA 9,121,251,119,11,211,4 


3,213,251,251,1457 


4,211,251,253,1415 


2,1,147,211,1147 


42 DATA 23,212,84,249,253,54,7 


91 MTA 124,2,254,7,32,7,253,5 


111 MTA 243,197,21a, 229 ,221, 22 


,3,233,71,1214 




9,253,229,129,221,2241 


43 MIA 1,253,78, 1,253 ,34, 2, 23 


92 MTA 195,142,249,254,17,32, 




3,94,3,1123 






44 MTA 253,114,1,253,115,1,25 


93 MTA 19,195,219,251,254,18, 


112 MTA 248,13,13,13,111,121,2 


3,112,2,253,1354 


32,7,253,54,1311 


31,248,15,15,1933 



SINCLAIR SPECTRUM 



113 MB 15,15, 253, 124, II, 1*7, 4 
1,34,41,41,823 

124 MB 41,41,41,25,17,1,21!,! 
5,17,3,429 

125 MB 3, 197,293, 124, 11,1,32, 
1,22?, 213, 1H9 

124 MB lit, 35,29, 31, 251, 2(9, 2 
2J,?,21,32,?12 

127 MB 2(3, If 3,193,219 ,213,1? 
7,!I3,I?3,1ZI I 23I,2H4 

12B MTA 7,87, 121,231, 248, 13, 13 
,13,7 1, !S ,623 

12? MB 15,15,231,214,245,121, 
23(, 7, ?5, 121,1313 

131 DATA 231, M8, IS, 15, 15,79,24 
I, 12?, Ill, 121, 1213 

131 DAM 231,24,24*, 224, 131,113 
,47,221,124,1,1371 

132 MTA 21 1, 35 ,221, 34, 1,22 1, 35 
,31,1,4,653 

133 MB 24, 4,213,4 3, 213,21,213 
,27, IS, 248, 111? 

134 MB 253, 213, B, 124,41,9, lit 
,35,122,119,1134 

135 MB 35,123,119,24,11,174,1 
19,35,122,174,935 

134 MTA 119,35,123, 174, I19.I93 
,2*9,24,5, 194, 1 191 

137 MTA ((,252,253,225,221,225 
,125,219, 193,241,2(84 

118 MTA 211,243,197,213,229,22 
1,229,251, 229, 229, 22(4 

13JMTS 221,225, [?7, 213, 213,1? 
3,121,15,15,15,1(27 

IK MB 23(, 224,129, III, 171,23 
1,24,244,224,113,14(1 

1(1 MB 1?7,4, 8,221, 124, (,174, 
119,35,221,1117 

1(2 DATA 35, 221, 124,1,174, 11? ,( 
3,34,221,35,1111 

143 DAB 14,237, l?3,38, 1, 171,7, 
7,7,111,734 

144 MB 41, 41, 22, 1,89,23, 17,1, 
211,25,478 

1(5 DAB 253, 124,11,147 ,(1,3,11 
1,35, 1 1? ,219, 1182 

1(4 DATA 191,21, 14, 184, 253, 223, 
221,223,225,219,1771 

147 MB 173,241,211,17,1,44,38 



1(8 MB 1, 
,33,1,574 

1(? MTA 218,1,1,3,1 
174,193,219,1(43 

151 MB 33,1,221,2: 
,1,1,223,1191 



7,174,17,1,88 



151 MB 231,231,285,131,28,215 
,153,31,197,225,1435 

152 MTU 221,33,1,1,17,194,253, 
237,83,17,1153 

153 MB 353, 1,12, 4,229, 221, 9,1 
21,254,355,1341 

154 MIA 41,3,9,24,2(4,221,2!?, 
193,225,237,1427 

153 MB 174,12,4,31,14,253,2(1 
,22,224,33,1(41 

134 MB 1,44,93, 1, 1, 2(, 237 ,176 
,17,1,412 

137 MB 218,1,1,3,197,229,237, 

138 MTA 237,174,211,223,131,23 
1,213,131,29,313,1847 

13? MTA 133,31, 197,225, 124, 25( 
,233,211,147,32,1439 

111 MTA 13,35,124,71,33,124,79 
,33,237,47,924 

141 MTA 192,253,21,234,237,91, 
54,92,239,111,131? 

142 MB 38, 1,41, 41, 4 1, 25,22?, 2 
(9,237,73,934 

1(3 MB 192,253, I2(, 15,15,15,2 
31,224,12?, 1 1 1,1314 

114 MB 121,231,24,244,224,113 
,4,9,24,119,11(4 

115 MB 19,31, 14,251,237,75, 19 
2,253,12,121,1211 

114 MTA 254,32,51,11,175,79,4, 
12!, 254, 24,1(18 

1(7 MTB 54,2,175,71,737,47,192 
,253, 225,33, 1313 

I4B MTA 24, 148,1, (,(, 1,1,1, l,( 
,192 

11(1 88 T8 9998; (EN ERST ABSPEI 
ClON, MM ANSEHEH !!!!!!!!!■!! 
8??? REM NCMSTf R-NM DEM ! 
9(11 CIS 1 BEN 

SCREEN "SAEUBEW 
9111 REN WWTERMTEH A3 51(11 

EMEBEM I 
9111 RESTORE TBIl F8RA*51II(T 
5(128; READ Bi POKE A, 8: NEXT 

?12(MTA 1, 1, 173,239,1, 1,14,3,1 



9851 FOR A=2252B T8 2255?: POKE 
A, 118: POKE h7U,m NEXT A: F 
OR A=22528 TO 23294 STEP 32: POK 



9141 LET 7=0! 
fllLDEDHIBH 
?171 POKE 1 



;R 43494: SEN 
5PEIME9 KBflERE 
«,(: POKE 51 



1: PfJE 



ALS EHDE SET2EN !! 
9191 LET Z-USR 43491: PRINT 5111 
(i SEN SCREEN VtLL V PR1NTDI 
ZE1GER SIEHI AOF 51(11 !!! 
9111 LET 2-USR 13497: PRINT 5118 
1: REN 'HWO'-MTEN 1NIT1AL1SIER 
EN ! ZE1SER STENT AUF MM >i« 
9111 FDR AMtttl TO 489! 
A, 255: POKEA'32,31: P0( 
: P0ffiAt?i,3l: PORE At 1 28 ,235 
I41,!48: POKE A* 192, 172 
!24,21B: NE1(T A: PEN BR 
K IN SPEICHER PBREN ! 
Mil LET 2=USR 434B8: 8 
: REHHMSTERHERDEK NUN BEHEST! 
mi CLEAR : SAVE 'NOHD MTA ■ L 
INE I: SAVE 'HOMO CODE 'CODE 434 
88,1472: PRINT AT 11,(1 FLASH (4 



"MONO CODE 'CDDE 13(98,1472: 60 



VPTR1GKT 1994 by S 



WWAWWWA 



SINCLAIR SPECTRUM 



Computer Kontakt 8-9/87 



Easy Fonts 



I .iLii'i'iniii.i'iim eingeben 





Basic-Listing 


Z! 


1 


I ■ —ST-*'! 


MC. S Di«" ,™i 


90 


S !9»7 


1 derEditn. e, 


185 


REM •*■ Tltelbild •«* 


c £™.£ 


130 
135 


REM 

PAPER 7 : BORDER 7 : INK B 




149 






150 


LET pS=" Easy Fonts": 


.- I.UkjIniUL'JlVll. 


LET 


ib*=3: LET ys=6: LET yy=58: G 






3 9888 




160 


LET pS=" 






VIENNA-SOFT" : LET Jts=l : LET 




y S - 


: LET yy=5: GO SUB 9880 


i2i 


178 






■ks-2: LET ys=l : LET yy=188: 




GO 


1IB 9080 




188 


LET p$="*-««>«*«**>«**<>.": 




LET 


xs=2: LET ys=l: LET yy=25: 
JB 9088 




198 






LET 


xs=2: LET ys=l: LET yy=l : G 






9808 




288 


LET p$-" 


~ l. \ 


1987 


by Vienna-Soft Ltd.": LET k 




b-1: 


LET ys=2: LET yy=138: GO SU 


< 


B 90 


8 




218 


LET pS=" W 




ritten by Roman Mueller":' LET xe 










9888 




220 


LET pS=" 






ress any key": LET xs=l: LE 


'"' °" '■" 'x 


T ye 

238 


1: LET yy=110: GO SUB 9808 
PAUSE 0: GO SUB 9188 




239 

240 


REM 






241 


REM «■« Hauptmenue «»* 




242 






213 


REM 




250 


LET pS=" Hauptmenu 




e": LET xs=2: LET ys=l: LET yy=5 




i GO 


SUB 9088 




255 






LET 


xs=2: LET ya=l: LET yy=38: 




GO 5 






256 






LET 


xs=2: LET pa-Is LET yy-148: 




GO 


UB 9808 
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289 LET pS-" 


410 LET ys=VAL yS : LET yy=VAL z 


Take your choice": LET xs=l : L 




ET yg=l: LET yy-155: GO SUB 9009 


429 INPUT "INF: ";ink: INK ink 


290 LET pS = " ID Editor" 


430 INPUT "PAPER: ";pap: PAPER 


: LET xs=2: LET ys=l : LET yy=40: 


pap 


GO SUB 9090 


440 INPUT "BORDER: "rbor: BORDE 


300 LET pS=" 20 Backup" 


R bar 


: LET xs=2: LET ys=l : LET yy=89: 


445 GO SUB 9000 


GO SUB 9009 


*450 PRINT #0;"CLS (y/n) :"; 


319 LET pS-" 30 Load Sc 


460 PAUSE 50: LET q$-INKEYS: IF 


reen": LET ks=2 : LET ys=l : LET y 


qS="" THEN GO TO 460 


y=129: GO SUB 9000 


470 IF qS="y" OR qS="Y" THEN C 


315 LET pS=" 'E 


LS : GO TO 480 


1 get's out of Program": LET xs= 


472 IF qS="n" THEN GO TO 480 


1: LET ys=l: LET yy=170: GO SUB 


475 GO TO 469 


9000 


180 PRINT #0;"Picture O.K. ? (y 


320 LET aS-INKEYS: IF aS="" THE 


/n) "; 


N GO TO 320 


485 LET qS-" n 


321 IF aS="e" OR a$="E" THEN G 


490 PAUSE 50: LET qS=INKEY$: IF 


O TO 9989 


qS^"" THEN GO TO 490 


325 LET a=VAL aS 


500 IF qS="y" OR qS="Y" THEN G 


326 IF a<l OR a>3 THEN GO TO 3 


O TO 520 


20 


505 IF qS="n" OR qS="N" THEN G 


330 IF a$="2" THEN GO TO 3090 


TO 360 


339 IF aS="3" THEN GO TO 5000 


510 GO TO 490 


340 REM 


520 PRINT #0;"Do you wanna save 




this picture"; 


342 REM «* Menuepunkt 1 «•« 


525 PAUSE 50 


343 REM *■»«*«*■*•»*»■****■*■**«* 


530 LET q$=INKEY$: IF q$="" THE 


344 REM 


N GO TO 530 


350 GO SUB 9109 


540 IF qS="y" OR g.$="Y" THEN G 


360 INPUT "SCHRIFTBRBITE (0-96) 


O TO 560 


-Quit: "J line kS 


545 IF q$="n" OR q$="N" THEN G 


361 IF xS="" THEN GO TO 360 


O TO 530 


362 IF xS="Quit" THEN GO TO 29 


550 GO TO 525 


99 


560 INPUT "FILENAME, Quit: "; L 


365 IF VAL xS<0 OR VAL xS>96 TH 


1MB kS 


EN GO TO 360 


561 IF kS="Quit" THEN GO TO 29 


370 INPUT "SCHRIFTHOEHE (0-255 


99 


)-Quit: "; LINE yS 


565 IF k$-"" THEN GO TO 560 


371 IF yS="" THEN GO TO 378 


566 IF LEN kSJIO THEN GO TO 56 


372 IF yS="Quit" THEN GO TO 29 





99 


567 IF kS-" " THEN GO TO 560 


375 IF VAL yS<9 OR VAL yS>255 T 


570 SAVE kSSCREENS 


HEN GO TO 370 


580 PRINT #0;" Do you wanna a 


380 INPUT "POSITION (1-175)-Qui 


hardcopy ? (y/n)"; 


t: "r LINE zS 


590 PAUSE 50: LET qS=INKEYS 1 IF 


381 IF zS="" THEN GO TO 380 


qS="" THEN GO TO 590 


382 IF zS="Quit" THEN GO TO 29 


600 IF qS="y" OR q$="Y" THEM C 


99 


OPY : GO TO 620 


385 IF VAL zS<0 OR VAL z$>175 T 


610 IF q$="n" OR qS-"N" THEN G 


HEN GO TO 380 


O TO 620 


390 INPUT "SCHRIFTZUG, Quit: "; 


615 GO TO 590 


LINE fS 


620 CLS : GO TO 340 


391 IF f$="" THEN GO TO 390 


2999 CL3 : GO TO 250 


395 IF f$="Quit" THEN GO TO 29 


3900 GO SUB 9100 


99 


3001 REM **•*»««*****»*«***** 


400 LET pS=fS= LET XS=VAL xS 


3802 REM **« Menuepunkt 2 *** 
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1003 REM ********* 
30 04 REM 
3910 PRINT AT 3,3; 

rstellen" 
3020 PRINT AT 5,2; 
tte sine leere 
Recorder und 



Arbeitskopie 



druecken Sie 



OR LBN 1 



'256+309 



5030 IF IS- - '" OR 1$=" ' 

S>10 THEN GO TO 5020 

5035 CLS 

5040 LOAD 15SCREENS : C 

5050 STOP 

8000 REM 

8010 REM M-Code Eingabi 

8020 REM 

8039 FOR k-32256 TO 3: 

8049 INPUT "Wert: " ; a 

8950 IF a<0 OR a>255 THEN GO 1 

8040 
9940 LET i=i+4 
9050 LET H=LEN pS 
9060 FOR n=l TO v 
9070 POKE i+n,CODE pStn) 
8O60 POKE k,a 
■ 8970 NEXT k 
8080 STOP 
8100 REM 

8110 REM M-Code Abdruck 
B120 REM 

8130 FOR k=32256 TO 32356+300 
8140 PRINT PEEK ki" - "; 
8150 NEXT k 
8160 STOP 
8200 REM 



B210 REM Sicherun 

8220 REM 

8230 SAVE "EASY. J 



l"CODE 32256,3 



8240 SAVE 



Das Hauptprog 
un wird nun nit seinem 300 By 
i langam M-Code abgesichert : " 
3030 PRINT AT 15, 2; "Wiederladen 
Ihrer Arbeitskopie: 'LOAD '"'""CO 

DE :LOAD "" 

3040 SAVE "EASY. ASM "CODE 32256,3 
00: SAVE "EASY.BAS" LINE IB ,- 

3050 PRINT #8;" Press afti 

¥ key" 
3060 PAUSE 

19 GO SUB 9100: GO TO 250 
5080 GO SUB 9180 

II REM ******«**«*«*«*■**** 

5002 REM *** Menuepunkt 3 *** 

5003 REM ******************** 

5004 REM 

5010 PRINT AT 3,3;"LOAD AND EDIT 
PICTURE" 

5020 INPUT "Filename :<Quit>"; L 
INB IS 

5021 IF lS="Quit" THEN GO TO 24 



ASY.BAS" LINE 10 

Band zurueckspulei 
VERIFY "EASY.ASM"CODE 
VERIFY "EASY.BAS" 
STOP 

LET xJt=(256-S*xs+LEN pS) I 
■23306: PORE i.xx 



9028 POKE i+l,yy: 
9030 POKE i+3,ys: 
9088 NEXT n 

9898 POKE i+w+1,255: 
2256 

9899 RETURN 

9108 FOR K=0 TO 20 
9110 FOR y*8 TO 30 SI 
9120 PRINT AT x,y;" 
9130 NEXT y: KEST x 
9135 CLS 
9140 RETURN 

9899 STOP 

9900 REM Endroutine 

9901 CLS 

9910 PRINT S0;"Are y< 
you wanna quitEasy I 
y other key)" 
9920 LET kS'INKEYS 
9930 IF kS='*" THEN ( 
9935 IF kS="¥" °R kS^ 
O SUB 9100: NEW 
9948 GO TO 240 



POKE i+4,1 



ganz schGn GUNSTIG 

Interface 1 neu+ietestet. ohne Carantie 50.- 
SE1KOSHA SL80AI 12* Nadddrucker) »«0.- 
SEIKOSHA SP 1200 Al nder AS kompl.eao.- 
Dlsketten 3.5" 2D 10-40- 50=175- 500=320.- 
aufwerke ab 250- QL Servieemanual 50.- 
igitalisierer f. QL 490- f. Spectru 
QL Rommodule 40.- Cartridges 

J. Rudolph Camputer&ysteme & Biirotechnik 
iden: 3S00 Kasse! Frankfurtersti 
ersand: 3501 Hoof Pf.H60 td: 0561/472737 



«i -i.r.t) 



SINCLAIR 



QL/Spec 



SINCLAIR SPECTRUM 



RAMPRINTfiirden 
Spectrum 



■ LIM iKieitei kei.ierlei Sthwicriglei- 

■' '*' r?n. DaiiTiSpn-irimlccinSpri- '■ i: -°Py- 






. 




:..;.'i . 




: . 




scot 


SSache 




Tel. 


089)267941 
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SOFT-ROM-Modul 
fiir den ZX Spectrum 



Der Kleine mit der RIESENLEISTUNG: 
SUPER GLP 




Computer ™ tam 

Kontakt 28.9.1987 
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Snake SZ^STS^mTSE 



rchim di^ridibei rer^ceipi'len^tsTiyMillcli s "" i,<lr,lich ii[ - Il "3*>Bylelan- 
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Backup-Kopie 


Anto-S 


an ^.hinder,, ode 


von Dan Dare 


alarren 


K mil RUN 6 


























ri Si-^ /irL-i^L d;is Ll.k'l'ri'- 


3. Haben 


Sit- lias Program] 









Dan-Dare-Knacker 



Ladeprogramm 



SINCLAIR QL 



Computer Kon' :■ 




CP/M-Emulator fur den 
Sinclair QL 



dodcffiHOOSdcsOLkc 



k.-'IIS-l'LliLLL! L^itL'UllliT: 1^ W h| . 

ult ^udik-h ■■int- J^i |2L''iSl-.n 
Pr.^raiiiiiibibliothtken zur 






i-Befchie ERA(Fiteinsch«i).ERO(R 
_"PyMula- WschcnTOiiMckfr,^-) TYPE 
tin soil) (File anzeigtn), SAVE (Spd 
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';■'" " : ' '"" "'■" S>'UTn I'lm-: •:.".. '.^ S: 



(BDOS-FunMcn 10) He! Zei- 


' ';,""' ,"""• ]'"":':';- :.;: 


sla 111™ 


lcncdnoi de* OL aufgcnifcn 


















man da& Cnpvivh: lichen 
(SHIFT ESC) mil siiH-lilielieii- 

noraiafen OL miscben den 


3-S 










a«,d Dlt hcm,sfflFr-»- 


H p ZTOIDici 


■ KIv 














FunkliOTen'7 d B*V ufl^ZMiis 


ctefS^t^'nl'wnm'i 


d'r'u- 



rsE 


IjL-l'IVM, 






™rikt^°w e ™z 



iglich aufgnind der fehten- 



dem Sandy Supi.T<JHiiai 



rtridge verkimfen. Aucb QL- 



H.G, Dreeser, Soft- und Hardware 













3e SINCLAIR QL 






■ ■■■■ Knntakt S-9/S7 


Grafikdemos selbstgemacht 


Dr.! vorliegeodB Programn 


S|,e. : ,i: 


noderC64mjrfinra<je 




unktiitn anl open 


ermfflglicht «". uKiie heu-ej. 








b.b,*,y) 






















bdgcftigtc Bcbpidprogram 


25 


aTvm WO^'^nk- 


SSE|c 


SWS^hSTx^ 


k'^'m'n' ' 1 


^ 


"g^hpbcdM 


Sb^-f":':"' ,-l 


■ „*. ns* en 


ita'iMAirto™ 




24 luvMen aus 4<H£ 


«^V'""" B J 




d^ s ftL n k 


nOrfT 


indLSMByupioBikf 


- Enlelltn em« HiUM. 


j,;,;^ 11 ., ,.""r",.,.- l 'w 


k* tad™KllaHtei)¥«lfenE 


in?"di 


A^Ddiine^Film- 


k^.oL^h 


|Jg§ 


«wS^*^2m3 




^8^ter«Iols»S- 


- Simen dc= Graiikauftaus 
























l^Jtfl^Kb^M 




B KHylc. Folglich 


Animation rait ani-mo.lon. 


■'■ ; : 












£X™rS e n?Lh!™ 




kin deshBlb afcbl in 


d^voT^S^ ^^fcn 


"l^SPRf 1SCECb=n "^ 


; ' S~ rt . 






wild. DieseimiBeLa templates 




Computer- 








DM Phasen^muod (0..2.PI) 


Kontakt 


M^dctetth.Ttto^o 






Zurich [>esiilH die Mde- 


das Heft mit den 
preisgiinstigen i 










Kleinanzelgen i 






;. : :.. ,■■;.. ■/ 








::':.■;' '":. 


Sdl^^^bEhE 




SttaC^ i,n SPCi " 


«"i«"Lw«r He 










;SiSr B * 


IH SpSKhcrhCTL-chi: .M.I .,„.- 


Hie, i,r „ bertlcks/ch.iec 




ISIS 


Prozedurani inil 
(Filmliinae) 


„,„;",-r,:-, 1 Tn„^ u „ fc w„li n 


daBd, 






durdarfnur irni 










s£*5*!!X»££ 


iLrf^™ 


Bildschirmauflflsuno se 










i 
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Prozedur ani_work 



QL-Basic-Listing 
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13DD ch2 - anl open (192^9. 28o]s 
k|rour.d background 



SuperToolkit fur den QL 



Hut. 

RinHi.m BAUD RATE sind dies 12B KBylc, a U 



■r CAPSIIICK mELiir ,j,| ntL 



giM an.Qbder Him?rii-..i-ii l<:- 



lieSystemvariablendesQI. 
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gno- Bylnao. 
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.... ; ;,.; > , . . !;.■ . ........ , . „ . 

nicrt nur iro Viertarlimodus. Opl-toDikiiaH-baseinfUgen. 


960 DEFina Eviction KOH_CflRTU) 
090 OEFine Function RON_NAMESU) 


y% an. nit- Ktumiim.Lc-Ti -.inil illiinrr^rn ( >30000| veischu- 
jl>-:ilui^ RidJ'vL-hi-Tiik.iiii.linH- l"-i:r: »lt'!l':i, daniii b^hichzL ci- 
!i>ii. \% laufcuni flbj; i:>" il-i.I >:iti.:i Pr.^nimi.^n r.jol'lemli.- 


QL-Basic-Listing 

III iflHS^™*""**"™ 

350 DEfi.f PROCedure PSET(,% ,yl) 

3B0 IP yl<0 OR yl>!55 THEN RETuro 
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ABC Elektronic 
Andreas Budde f|j 

Hiigelstrafle 10-12. 
4300 Bielefeld 1 

Telex 932974 




PL-Software 



RBBURO fur 
Kleinbetriebe und 
Handwerker: 
Ad res sen-, 
Lagerve rwaltu ng , 
Buchhaltung, Lohn, 
Faktura, Kalkulation 

komplettnur DM 495.- 

RSBURO lauft auch auf der 
englischen Version! 



Information und Handler-Liste bei: 

software-hausle 
Roland Best 

EggmannstraBe 21 
7951 Tannheim 
Telefon083 95/29 46 
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QBAS fur den QL 128K 




QBAS 



1 WHEN ERRor 

2 IF ERNUM=-7 THEN INPUT #0,"Dat 

"Sna$6"_doc nleht gefunden 
",-xx$:£e-l:CLS #0:CLS #1:CLS # 
2: CONTINUE 

IF ERNUM— a THEN INPUT #0,"Dat 
"&nS&" schon vorhandeii ! "; 
j:£e=l:CLS #0:CLS #1:CLS #2:C0 
NTINUB 

;LS #«:CLS #1:CLS #2:cS="":aS- 

6 INPUT #2,"Bitte Cartrige in Md 

i DELETE mdvl_dir:OPEN_NEW #6,md 



vl_dir:DIR #6,nidvl_:CL0SE #6 

8 OPEN #6 r mdvl_dir:£e=0 

9 CLS #2:STRIP #2,8:INK #2,7:FRI 
NT #2, "Alia Dateien 

":STRIP #2,7:IN 
K #2,ffl:DIR #2,mdvl_ 

10 STRIP II, t! IMC *1, 7: PRINT #1, 
"Mgliche Dateien aus QUILL 

": STRIP #1,3 

11 REPeat s 

12 IP EOF (#6) THEN EXIT s 

13 INPUT #6,aS:x=LBN (aS) J IP x>4 
THEN IF a$(x-3 TO K)="_doc" THE 

N PRINT #l;s$ 

14 END REPeat a 

15 CLOSE #6 

16 INPUT #0,"Name der QILL-Datei 
ohna '_doe' eingeben : ";naS:IF 
LEN{naSXl THEN CLS #8:GO TO 16 

17 INPUT #0,"Nanen fr neue Basic 
-Datei ohne '_bas' eingeben : "; 
nS:nS-nSfi"_bas":IF LEN(n$)<5 THE 
N CLS #0:GO TO 17 

18 CLS #8:CLS #2:PRINT #2,"Bitte 
haben Sie etnas Geduld, das ein 

lesender Programmzeilen nifflmt et 
vas Zeit in An-spruch" :bS="" :cS- 
•"':zl=0:CLS #1 

19 OPEN_NEW #5,"mdvl_»in$ 

20 OPEN #4,"n>dvl_ , '&naSi n _doc" 

21 IF £e=l THEN GO TO 8 

22 REPeat schleife 

23 IF E0F[#4) THEN EXIT EChleife 

24 INPUT #4,a$:GO SUB 26 

25 END REPeat schleife 

26 x-LEK(aS) 

27 FOR £=1 TO z 

28 IF CODE (aS(f TO f ) )=0 THEN G 
TO 30 



29 1 



aS(f 1 



f I ;GO 1 



30 IF cS = "" AND bS="anfai 
N c$="anfang" 



' THE 

:="ende- THEN CLOSE #4;CL 
3SE #S:GO TO 34 

32 IF cS-"anfang" AND bS <> "anf 
ang" THEN PRINT b$:PRINT #5,bS:b 
$="":zl"Zl+l:ELSB bS="" 

33 NEXT f;RETurn 

34 CLS #2:CLS #1: PRINT #2: PRINT 
PERTIG." 

Zeilen wurden i 
il "fin$&" berste 



35 PRINT #3 
n": PRINT #2 
lit." 

36 INPUT #0,"Soll das Progr 
Si" geladen werden (J/N) "; 

yS-"j" THEN LOAD "mdvl_"in 
E RUN 



"in 



Jetzt geht die Post abi 



HM-Dish und Prirrterpuffe 
» KByte Speictierfiir sag 



ea QL + Spectrum 



QL- Programme: 



Spectra m-Prog ramme : 






Achtung, sehr wichtig: 

Unsere Rufnummer hat sich geandert! 

02107/12338 



QL 



Diskettcn umbenenneii 







QL-Disk-Renamer 



Computer Bauer 

SchwanseestraBe 43 • 8000 Mijnchen 90 ■ Telefon089/6908767 



SINCLAIR- 
EBSATZTEILE 

Spectrum 



SPECTRUM 
HARDWARE 



Andere Computer-ICs auf Anf rage ! 

REPARATURSERVICE 

Jede Speclrum-Reparatur C£f\ 

kostetbei uns nur DM 0?7 ■ ' 



SPECTRUM 
SOFTWARE 

Spisle Anwender 
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QL QL QL 



Verbesserung fur das 
SuperQBoard 



■jii^jrk'ii ill: TMS4Ji.ii] ■■'■ 



SnachH KByte.) EPB oM n*'\2 t 
•i- SiVil-..- t, m'i-- des TMS4500 vt 






^SEleichieilLEmaBlLch. 



;li uf allc VorsLchtsinafl- 





,™. 


J L- 


Afthl Idling 1 




".^ 



Abbilikung L 

PRAM CMLirt! 






H EP ROMs zeigt nach rights. 



^Xfc 



ZfG 
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!* IMx cines Tiilcjv 



>266, Da our bine djs '/.:|-yr^ii:' 



:. "P»; CHR$ (0); sthilitl 



Sc-mi-jcst^is ijlKivriitL.ii., *,il- „|, l77 - , ■ ;■,,,,,,.. ,,o- ,,.., r , . ... . . . . K™™ audi au m 



(32); CHRJ (0) 

Jniuimj;i.:n lit c< 
- tier anzupas- 



Zeilenlos = Hoflhungslos? 



urn BOOT-Prugramm; ,-.i t i 


!.B. BOOT ucd bcfin 






dL-n Aiiloren ate Kf>pii:rechutz. 






nun geladen. uod der C 










esunm&gJidi.drcscJ'riiLTjiii-iis 
























TER-Tasle. JcutLr.diLTii.li;- 


(BREAKI kann man d 



Diskettenaufkleber 
selbstgedruckt 
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Programmschutz 
auf dem QL 



I SINCLAIR QL 

HARDWARE - SOFTWARE - ZUBEHOR 






s 



ifehle (ohne rfn Sprang zirai Anfaiij- » 



Dassieh[fo]gcnflc[maUeii urn 




Computer Ham- & Software Vetlneh 



PROGRAMMSERVICE 



Jede Kassette DM 16, 
Jede Diskette DM 20, 



'; FREE AUSWAHL 

*> aw> 3 Kassetten nach Ihrer Wahl 4A 
WCl" nurDMtUj" 

DoaL 3 Diskettes nach Ihrer Wahl E A 
raCIV nur DM OU y ■ 



A ATARI 




TI99/4A 



iinczlairr 



Ou«Hw(ver),aomi*nft'(i/S7)! l !8iia£«(i/B7) '' 



BESTELLSCHEIN 



dB ATARI Compter KorWWB-9 

A ATARI 



INFOS -NEWS-BERICHTE-RB/IEWS-TEST3-PH0GRAMME-USTINGS-ALLESFL)RATAP-USER 



Hallo Atarianer! 




fa Space lobilcriTltTKanipfscfttidii 



Em s;-i]licl!K] I iii'i. ilti .!ik.-Si Geci'mii;. *ru.r riei as C n9 «p I J|h«t(>r« tragi, den Hummer zu besch 

■• II. H'l * " ■,«. :., I i,li..l..| 1 i.'i 

:Tl Hath Erschcimn ttes elite n hor!=m u,,^™™^ m6sli;h, deuIS:l1 Hummer mi Welrall CC [ M .. I1N , ,] t „ en s j C ri inn 

ik'HiiiUkl;, mi ■ ■ ...... ■! i ■■ i "i idicn sci'jihrlkhe Gegner ( 

!■ Li'. .'.' .\ .. .' ..'V,, ' : ;'..'.'".".| '■!■ ' ■!■" Iji- 
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ATARI «» 



UI.'tl"(l'tl-.JtU"' 



crambos Crisis j^S|^T Die AMC-Soft-Diskette 

^^2^13 SfiSSffcSSfoii? JSSllS^ISSSZ E22££?£'£ 




anderes ab eiii iKsiecs Latjy- 1 ™" !n " Die Disketten sind doppel- 

rintbaiKtianffiriLniiRBumcn, *>''^- AMii \l ,'\i : iei(i s li»piell unilvoil milSpie- 

nkht galakriscb aus, sonde™ Mjd| si" kfflBpSaiH SjrfdpHJ- 

?™";^ ".",": w|n,er Olympics sskss,""— 



oiler ^in^TnCr^tf^Tisiiin'l vtrl^ri unil U'ini'inlynipkukn i 
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Roboting-Interface fiir 
Atari 800/800XL/130XE 










ri >m® 

!C = XLS 125 
CI s.itnf 

a = t |jf 

Tl ;BC 547 
7Z--ED 139 
13 ;BD HO 



Interface-Demo 



3 REM **" ATARI -ROBOTING *** 

j HEM *** INTERFACE DEMO *** 

3 REM **• PIA INITIALISIEREN *•* 

3 PACTL=S4018 

J PORTA=54016 

3 POKE PACTL.5B 

3 POKE PORTA. 255 

3 POKE PACTL.60 

] REM *** STELLSCHLE1FE •** 

3 PRINT '■ POTENTIOMETER 0-3:" 

3 PRINT PADDLE(O) .PADDLE(l) .PADDLEI2) ,P 

3 PRINT ■MOTOR, ZIELWERT" ; 

3 INPUT M.Z 

3 P-PADDLE(K) 

3 PRINT "AUGENBLICKSWERT ":P 

3 B-2-(M"2] 

3 FOR 1-1 TO 3:REM MOTOR EINSCHWINGEN 

3 F-PADDLE1M) 

3 IF I>1 THEN POKE PORTA. 

3 IF P<Z THEN POKE PORTA. B:GOTO 270 

3 IF P>Z THEN POKE PORTA. B+B I GOTO 270 

3 POKE PORTA. 

3 NEXT I 

3 GOTO 180 




Weltneuhellen fur Atari ST 

Antje Schneiders 
Programmversand 



PE&apai 



Martins Textstar V.2.0 

Das islchnet ihn aus: 



,«». DM 80.- 



Martins und Juttas 
Textadventure 

Superpreis: nur DM 1 9.— 

Antje Schneider 




s- ATARI 







Let's 


fetz! 


n« 


mirlM 


hsidabgedruck- 


nfchtsotrag 














1' ;i ■:.•-••- Mil 'Li 1 , i ■ 




















■ l:i. F'i.l.iijtij 


"sltiiw^lili- 


Znm Ko 










































(IMii-lMlji!! 






















abget 


lagen. 


Das ist jedorh 


Marin Spielii" 
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An alle 
Programm- 
Einsender! 

Wir mochten uns bei alien Programmierem 

filr die vielen eingesandten Programme 

bedanken, mussen aber immer wieder 

daran erinnem, daG ein ausreichend 

frankierter Riickumschlag 

i sollte, damit wir die Programme 

zurucksenden konnen. 



Atari- Basic- Listing jSSIt™ * « 



Computer Kontakl S-Si 



Computer-Lexikon S-~™S'~;s™is=s?,=:' 

r ,-mcs Stifles «lr- il !:-.l-i:!.::-"-:,iji.i,:«,!,TabkiBi. 



Floating-Point 

to^stdbn TOA*„ , d^ , ! , tad! len dtSh ''"'' d ° tCi1 "' feUe " "**" H"""** 

Floppy Ruudncn, die . 

DatcntrSasr. aitauen^Ditt 

HulWi agnail mi sesjirochea wii 

Symbnle stclfcn Opt ration wfe Ein./Ausaabe, VerarbHtung. Hurdcqpy 

itrgnifjkfahia.s 

Compulei cir^biiul i-i.wml el, Sw.TTif;.n- bc?lidl:K' 
loren dienen ium Erslellen eicfiicr und Verandem hi 



Funhtlonstaslcn 









GEM lieadcruh 

Ataksjrv.i.nt! flu (Hi phic I'nnrmrriL'ni Manager liiafiliuricn- Gi-fiirclHC-islet F^iiiniH i.ni Lebe.n etsier I iard.(i-.k..li 
I nMknmeterill 



, 
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R.HiSIn- .Jh-l-^i .i:it , kx-Ziffcr :.i!si.-i1njck: ut 









Label 






inn. Der Computer unto 



BHraWiglHttayBIl LC p 






iaSTii1=ra£3 =[.]=! 


"SJi'r||K---™'^ 


Hnr^-r. rurJltar^HL/KE: ^ 


^"'iSIS S~ sS^ 1 ™ — &-■**»»' ; 


"'"/i™, 1 S£2££3£S£; ™- 1 


SSL T1L : «M-4?T1» 






Zeit-Zeile 









an,,.. I„ 


i' sera Fall funllio- 






:n Sfc: d« 


alll K'ri'lld.Zlv d,-jr- 


"Zeit-Zs 


c" bcginnl in Pyge 




















elleahlce 




:,!,■„■ 1,, 


erprogramnto frei 



it gesem niid, beginn 



Basic-Generator 



70 READ C;IF COSUI 
88 ZEILE=ZEILE+1&;: 
98 GOTO 30 

110 OPEN #1,12.*, "I 



IC-niSbuclnraKii:. 



Die nachste Ausgabe von 
"Computer Kontakt« 
erscheint am 28.9.1987 



sea data 
















































1028 DATA 








ez, lee 










1 157 




:„; 




s,ae,i544 




























































iii'uli 


'■ 















































3,48,32,32,255.4 



ATAR 





§ras£sl# 


s 


'atari 







Nutzen Sia wiser Angebot! 

Atar-Tits fti'Sie oerdt. Einfacri 
nebenatehenden Bestellschein 



■H SNrt mil Aturi-LoflD 



- 


&l 







1, * 


lEr^sishwwiHis 


j ATARI 1 




»■■'»»»«" ™"- 



ill» 





Sa== 













sbs-l 




I 


ff."'.v- : 




i " 






lATARIi 


gnEsSi 




m 


jjjssiil 




ijMJsg^ll 




Die Super-HMfsdishe-tte fur ihrsn ATARI! 





MGIir Berichte, Listings, 
Nachrichten, 
Tips und Tricks fur Ihren 



Atari XL/XE erhalten 
Sieausdem 
KVMKlmagazin, 
der einzigen Zeilschrift, 
die sich ausschlieftlich 
mit alien Atari- 
Co mpu tern beschaftigt. 
Auch wenn Si e mit 
dem Atari PC Oder ST 
liebaugeln, hier liegen 
Sie richtig ! 



TOPPROGRAMM PES MONATS 



Mil diesem tollen Programm kann sich je- 
der mal so richtig als Graffiti-Kimstler 
betatigen und nach Herzenslust die Hauswan- 
de anspriihen. Doch Vorsicht.diePolizei liebt 
derartige Unarten iiberhaupt nicht und chc 
mansich'sversictit. landet der Sprayer imGe- 
fangnis. 

Gescbrieben hat dieses Programm Gerd 
Schiefer aus Aachen. Er ist 37 Jahre alt und 
am Inda -Gymnasium in Aachen Lehrer fur 
Deutsch und Kunst. Zum Programmieren 
kam er iibcr seinen 15jahrigcn Sohn. der sich 
1985 einen Atari 800 XL zu Weihnachten ge- 
wunscht hattc. Am Anfang hat er vie! mit ihm 
zusammen program raiert. 

Bcsonders interessiert sich Gerd Schiefer 
fiir Compulergrafik uad Klinstliche Intelli- 
genz. Speziell im Bereich Compute rgrafik will 
er den Atari verstarkt nutzen. Auch soil der 
PC in der Scliuie im Unterricht dafiir eingc- 
setzt werden. Weilere Hobbys von Gerd 
Schiefer sindnebendem Programmieren Rad- 
spori, Zeichnen, Typographieurid Sprachwis- 
senschaft. 




To 



opprogramm 



ra des Mori als. 
B wir hicr in der Redaktion von alien 

nilun^Ln r!.i^ beste Prugramm her- 
in der CK als Toplisting abdnickeji. 
a Programms erhSli dann als Hono- 



tiasii blithe Hon 

norar fflr den A 
Mil der Lin send 



denlOOO.-DMenlrii 
.Programm, crklan si 
nen Punktcn im Text 



irinB nidi! unbedingl be 
Programme nodi keinen 
gramme abgednickl. dit 



d TT W,'4A. Ein Listi 
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Graffiti 
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ZL=ZL+1:P0KE 656 


8:P0KE 657,2 


POKE ie,S>:FQKE 1 


,e:FOKE 29.9 


grSiiSun* 


STQ UW1 


SEAD PF'POKE S,F 


:NEXT S 


s?s«Su>» 


S TQ 511+VI1 




6S9 POKE 656. is POKE 657,2=? " 


E1TTE 




RESTORE DA 

FOR S=69B+V!3>+PMS TO B95+U(3)+FMS 


70S READ PR:pOKE S.PRiNEXT S 

715 ST-STICK10! 

0=GQSUB 758 

713 IF aT=ll THEM H(U=Htl)-3 

728 IF ST=13 THEN H(1]=HU1-1 


GOSUB 15 


8 SI 


NEXT DA:FOr'w-0 TO 0+N:NEXT M:N=IN 

FOR LAUF=1 TO IS 
SOUND 3, L, 18, 18 


726 POKE 5325e!Kll)+4 






FOR FA=114 TO 116:P0KE 784,FA:P0KE 
5,FA+2:PQKE 706,FA:NEXT FAiNEXT LAU 
OKE 784,8:P0KE 785,12-PORE 786,8 

SOUND 3, 8, 0, : GOSUB 628-.EETURN 


765 DA=ASCiTEXT*[E,En :RESTOR 

E U1 THEN COSUB 688:1 

775 RETURN 

708 FOR L=l TO 3:F0R Y=5G TO 


1:SEK=8: 




I.Y = DRAWTO 130,y:NEXT T 
3R L=l TO 3:PL0T X.YA:DSAHTD X,YB:Y 


■ :!!.■■.!■! 7;;, 




Hit RESTORr^^ 01,01 * 


795 SOUND 8,8,S,4=CDLDK FAROE 
25iS0UND 8,0.8.4:PKT=PKT-4: 


SU1 T 79 8 T 


fit 


8 READ XI,Y1,X2,¥2 

2 PIDT K1,T1:DSABI0 X2.Y2 


798 POKE S56.2:P0KE 657.33!? 
79S POKE 85e,2:P0KE 657,27:? 
;ERGEBNIS+PKTi " ■ -. iRETURN 
880 POKE 5327B,0:FOR DA=658 T 


^ ■ 


»» 


6 NN=LENITEXT*H-1:IF L1N1TEXTJX7 T 


S15 RESTORE DA 

820 FOR S=89G+VI3)+FMS TO 605 

838 IF H(3)f=210 188* 

51,38:Z=8:HUND=0:RETURN 

835 IF H(3)>=HC1)-10 AND H(31 

648 NEXT DA-POKE 53276. 126;F0 


H(l) THE 






t»7 












! 


b'data 94 is ee 22 es 22 ea 28 87 2 


l'lsi;-i*.'SI'!t'SS-«'!1..» 


1 HII m4jfr.lt, 1.8. 15, 1»S. S 











23,34.43.46. 1 




^afsfss'I'ss'l'^'sS 



1 RESTORE BILD 



5, 36,32, 34,«,2;.^, ? 



5,30,1,25,25,2 



TDFITTI MIERENDDRFPLRTZ 

■LlTH In jitl berlin ta 



, DRUC KE??Ste"«CE ^ M U ■ 

"DPI 




■JJJ^Wl 






llliill 




sxsrssr 
















4018 PLOT 152,79:1! 




155 78.PLDT 15 


4*15 COLOR 3: FOB. I 




151,79:EBAKT 
3) TD 71 STEP 


Cl ££ 




FBUEHER ST IBB 




VI31-1.IF n»«! 


TiiEti 


(31-71 


EB TOT 








48 IB NEXT LAtIF 






79BB DftTA 




L SEl DEB HENS 


CH^BIEBACK 


4188 COLOE i 




15S YO.-YI3 


TS SS* 


til 






s^rsrK 


S£ 5 


[t££g%&* 


™r.s*" 


ES 


g:bt uiel zu ■ 





Bilclschirniabsehaltiing 
des Tempos wegen 



Re 
ur VBI-St 


ikabte 






-R( 


[L-K.-nti- 


Hildsd.i: m.-iiiif.ilv 
Wi =c |,enf a ]l,fas[j e 




;;• 


S 


;!■: ■_ r ! ^ ■ ! i: 1 1 

N AI'lE^L^- 






Listing fur XL/XE 



25838 IF 


NEXT A 

SOS13B THEN ? 'DATF.N- 


mail 














9B. 1S9.8, 14 1,226, 2, 373,47,2 


,.,., 



Listing fur 400/800 



25eie a=e=EE3T0BE 25188 

25826 FOB A=153B TO 1596:1 
. D : S=S+D I NEXT A 



1,46,2, 189,0. 



25128 data i 











is ATARI 
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Disksort 






*;t'ss;.™,; 


taS.tS^^S 


■m S[ieiL-!i5i isstftcl !">!('- .-i 


'j^SCta!* 


VciM-iiliiji.j tics FrMcraii:n'>-c- 




Klhsterzeujavvordensein. 










- FilescMtzeniNachE nei.be 




,:,'i!i:n be: ..■il?i-i Kile irLisii. 1 .-. 










iiarii Na.-riL-. IDlss-i Orolfc 












Nuii ivsxlu dk- vioglichkc.il. 




" >XSSSm££m» 


-File urn beiie.nni:ii;Nach Ein- 












scliirm ausgegeben. Dabci 


iue Name;,'- i-.li.ich k:>;^na 


Cirriltc zu uriliien. Dies &r- 




kanti man fcstlcgcn, vim v.o 




























t.iTV. V\ ME!" I!:,! 1 J '. IS L!0>-'ip;- 


"bi!" Projl-ammniimniei X. 












■^btiicn r: L^ii-lzie; cc^n- 


■■D^ii.on'lauliiiincrTiirhf- 




Suchbcgriffs wind die Liste 






























ST^IeTt^m 


^S^"' 8 "* 


IS^PtaE DoH-MJl.t' 












p BmD » M »ip*«. 












lensalzc nuLli eintie^-scn ■■■■■'-■ 


33* SwaE "ita^S 




" inSS ^tuT*** 






Menii "Disketteo- 


-DoJJtutJb^™^. 


In namtlichcn Fin^abL-ld- 


speicheO. 


humiinintlus" 


dcrn sind die Sidniljr'k j 'ln.ci 
















:..a DELF-TEtinksnndrcchls. 










gelesen. 






s Mil I'M iPl l.ii.": 
















■.v.r.l J,.- bingnbe ml RE- 


^liW-ooOifta*™* 


jeBsoW, 


b " Pl '™ tie " t 


Meniipunkle 








(ilaunimciLii) 


Die wichtigsten 






Die Einzelnen Menllpunkte 


Prozeduren 


Crlhtdlc LintaufOracktiodtr 


En.lialidcnSamendcsDalen- 










iiiirchtnuVri Ruchstabras S c- 






FILES) ■ 
















STACK 




Oibl den Program mkopraus. 














■KhrniD.: ..BAS<— site 








Baiit-l-ilcsi.uflauf'SL'rkJl. 


»un a l.iis<:HHSiENl rinp- 






Der SlandardselL-kk.r i^l 


2750 GANZ 


Die wichligstea Variable* 


K^ Asa " Kn te 


■ !i-^:n Mlt -.Li? i_ n n i t*iiilc:iK 


UMWW>4 


aMUd^a*.*,!™™ 


G^fcma.imakAuz.ahltler 














files 












■ in^.tqcebtTI. Ltvi^iiLTV.-^sc 








vemendetmanhierdlcDis- 


Si^ 1 '* 1 "™"" 


bnMal tine LaufwcrkaBBS.be. 


teimuz. 


SS5SS.-SS 


5ff»w*i» 


Kciil als OliclED.bc-Slrir.t it, 


LG.RO 













i: SOUNDMACHINE 



SSS 81 * 


N Si."SS53?n™ 


B«t.-Nr.AT1 


29.80 DM 


ATARI POWER SUPERBUCH 




M.nMlm&rmKM 


B6St.-Nr.AT3 


29.- DM 


DIE HEXENKOCHE 




SSS^S5S^S?^S^lS 


"^S'lKSaSIK 


Bs9t.-Nr.AT4 


MflO DM 


DISK ZU HEXENKOCHE 




b^atT^ 


1*80 DM 


MACRO ASSEMBLER 




BSSStar^tiSsnaS^. £5K! 




Best- Nr. AT 6 


Diskette 49.- DM 


ATMAS TOOLBOX 




22S2SEl£XtS££2i rMC " ce ' 




Best-Nr.AT? 


19.80 DM 


MONITOR XL 




IfSSSSSf 


SSH 


Beet-Nr.ATB 


19.80 DM 


DESIGN MASTER 




■ . . ■■ ■■..,. ■■ ■ | ■ II I ■ 


Sim£*£!X*!£ 



, DAS ASSEMBLERBUCH 



, DISKMASTER 



, PROGRAMMDUDEN XL/XE 



ftXi/Tfifi 



SpBzialitaten-BestellSGheln 




Computer Kontakt 8-3i 



Turbo-Basic XL- Listing 



2080 POSITION 5 



2728 



; UEBEBNEHMEN 



Computer Kontakt 8-9/B; 



; SliSBHMENSTELLEN 



I=Z;EX!C ZUSAHHENSTELLEN 




4259 1 CHF1IWAHL! 



POSiTION 13, 15 



Computer Kontakt B-a'87 



7190 IF T-126 AND FQS>X1;REH I1ELET 

7298 HOVE ADBIDATSl+PQS.ADBIDAT* 



IF T=255 AND POS<L: 
-HOWE ABE(DAT*>-H 



6890 F0S1T 



ng/X.Y^Positiol, 



tMMimmMmmm 




Computer Kgntakt 8-9/8' 



ApfelschuB mit 
Wilhelm Tell 



!,[ jci i;.-iLO.fic.iil 




Apfel mit SclnilS 



& 



fr 






<V DIABOP 

i.ijiij,im,i.i„iii.U!i»inmaiH!ij«tHin« 



% 




;: 25.90 S" 25.90 ST 9.90 % 25.90 Sf 25.90 

5f 39.90 8f 29.90 SS" 39.90 SS" 39.90 

9.90 — Billig, Billig! 



• y\^ © 



-Super 



S*A*M*P*L*E*R*S 
* Greatest Hits vol. 1 



dm 29.90/34.90 



07252/ 

3058 



Software- 
Bestellschein 












































,„, 


Kh.1HHM.tU.ft,,,: 





— — — A 



Computer Komakt 8 -ft 




Wie sag ich's meinem Computer? 



vergiBt m«a oft. dafi so 



spidpro^rarniiie i±i n^i-inKiL-n 






Icdingung dafUr Daa. « 



Q3i;luI i^liKr.. il:il.' | ■::. ^.-|k-|l 


g SUineISO »fc all f D feta £egB 


"— *■* 


Programmiersprachen - 


Fachchinesisch 


Maschineiuiah 


„ e , S . de. (SBHto Brfehl 


p,.„..,.,«, .„., 
































." .■.■.'■ ,| " ■ : 


^urfi^teag. 


Assembler 


^f fl l nc Lrz"nT 


Compiterspiache 


M "TJS.^ 






























































































































O^icfciaidt gill als die 






































tpcichcni mid Sthflltstctlen. 


















.id. zn der Lngik d ti R cc h- 


„»™„ .,„„„*,„ 





Computer Konlakt 8-9/B7 











SS5" 






™™™~ 


eina.b.aufecrufen-. 






D oen: 






MR 






InhelBvcraichoisTOi, 


5ETFEN i v 






























MINI-LOGO-Programm 










































































NEW 






£E° 0Q ~ FH * ti ' m ' a 


LEFT, 






S*i^'dKh n fn UmSG ' ad 


OLD 






^rh°™" Pr0ramm 


FOR. 






™ri™ 5 hirmPUnktt 


LOAD-D^Hfenfimc 






MINI-LOG O-Programm 


BACK! 






i iWdschirnipunkle 


u» 






sissr- 


T"" 






SSLf **"^™' 



;!$£jr T ™ «'^!H Beispiel 1 



Beispiel 2 



NEU! 

Isaftwrel 


DM 49,- 


$& 


. . ^[glanzendeAuganbekommen. 

,■..,,..,„:,. ... .... ... ■■... .. 

Und, boaondors wlchtlg; Das, was MASIC 

. „. , ■■ . :: .:. ■: ■■ .... , .... 

ProgrammzusMSfen. 




■: ..: ■ '■■■■■■',■■ ■■■.■.■ ■ ' 

Sle hatwti anal S-Bil-Alnri und Binen 
AbbilO Ihrar PaolBninrligen mil Hills 1 tires Druckers 


DM 59,- 


1 

^? irnmr 



Computer Kontakt 3-9/B7 



flSSEHBLERECKE 



Texte flott gedruckt 






"i ' ■■'" : \en' (S9B) Das 


,,■,.. H L i ^.-.ntildiC"; .in'" 


cben AusjB*cn»iiine nu 


.nBiichldannfol,,™**™- 






SR PRINT 




\£ i ^mi ! rasrilB I p* 




























.,!, ki <it l.iL!. s:rl! .iKTilll 
















E£SSS 






EslBlml rich, surh rile" Lech- 


Dabei ^t^beaSI™n k ij 




















NunbleilKBahttiiccheiiiiOi 






























■<.■■-'■: iJ'^T;L-i''i" ^J'U I 


.tt'»t k-i^r. .vir- s,:.- ,-i- 


lesnchngl&ift.dciradei 



Assemblerlisting 

■ Auigabi von String! 
lAuenblers flTHflS-Il P. H 


lei B7 * 


ZEIBER EBU ISO [lBropag«-R«gi*t«"' 
OFFSET EBU *S2 |Hahl»r 

RTCLCK Eflll 113 I"*" - 

COLDBS EBU «53 (CuraBripllH 

ROMCCS EBU «54 ;CLirBoriBi le 

CRS1NH EBU «2F0 ilieCuriQr unsichtbir 

EBL EBU m lEnd-OI-Une Z.ien.n 



• Adressen Her HundlBrt itjelle ik ROM 
EDITDV E9U *E*0O lEOi tDf-Handler 

ORG tABOO 

BE IBP I EL JSR PRINT 

ASC "Dai lit Pin Brlipiel' 
JSR MARTEN 

JSR PRINT 
DFB 5,10 
AEC /Dai lit .in Baispiel/ 

JSP MARTEN 
JNP BEISPIEL 

MARTEN LD( IS 

MASTI LDO RTCL0Kt2 hit Uhr ichon 

MART2 ctIP RTCLOK+2 -si tergeiaebl t7 

BEB MART2 nain O 

DEI 

BNE HARTl 

RTS 


PRINT1 INC OFFSET ZnHlir erhnehen 
LDY OFFSET 

LDA (!EISER),V Its Chen holsn 
CMP »EOL 5chcn letitet? 
BEB PRTEND jl ~> 
JSR SCRQJT (oust amoeban 

PRTEND CLC n S .j? Ruerkiprung- 
LOA ZEIGER idresse Berechnen 

STA ZEISER plus Zaehlerl 
LDA ZEIGERH USB 

PHA RueO-sprungadrmt 

SCRDUT TAX I.ich.n rattan 

PHA Anlsnosadreiie-i 
LDA ED;TBV-fc der SCRGUT -flout in« 
PHA in QS-flDN 
TXA Zaichen jurueck 
RTS indinktsr Sprung 


PRINT PLA Aufruf>dre*-ie 

PLA in IEI6ER iirjttn 

ETA COLCRS Anfanosspalte 

INV 

LDA [ZEIG£JU,Y 

ETA naMCRS Anfingsieile, 

STY 0FF5ET Ziehler eerk*n 








Noch einmai: Cherry Harry 

Mac Kcbcslattdessen fnljeTidermaflei, vor; 




DOMAIN 



PUBLIC 

A10 HS^izz^Sir^™"^'^- 

A12 sKBsssrKCMSf-"—— j e de Diskette DmTU." 

A13 BB =a»- 



. 



PD1 SSSTT.-J 

PD2 rasas 

PD3 BSSS3 

PD4 s«x«r 
PD5 rsx 

PD6lfe~5 



PD-Bestellschein 

BitteliefemSiemirfolgende Public-Do main-Soltwarer 



Computer Koniakt 8-9/B7 



Noch einmnl: 
PIotter-Hardcopy 



ige Fugle Koala-Ausdrackprn- 



Das ultimatlve Bug hi 
filrTelefonpiraten. 
BeiCKfiir 33.33 DM. 

Bestellscliein S. 67 



EMIMBllpiW 




Version fur 1020 



Version fur CMP-90U 



150Z9 REH ****** J***************** 
15030 BEH 
15035 HEM 




4,8,8:SETCOL0R 0.8, IBiS 

uSJX ; . a, a :SETCQLOB 2,12,9 

DE X=0 TO XNAX:FOr'fABBE=0 TD 3 
1 FKOS=FAFBEUF FflRBE=2 OR PARSED 



I"-. I !.-■ ".: 




^•p»irt •*<! 



droller Atari-Prognuninlerwettlwwerb 






PREISE 



1. Preis DM 1500,- 

2.Preis DM 500,- 

s.-io.preis Scanner 

(R + E Software) 

11.-20. Preis MASIC 

(R + E Software) 

21.-30. Prels CK- Jahresabo 

31.-50. Preis Je ein 

Computergame 
aus unserem 
Diabolo-Versand. 

VlEL GlCCK! 




TI99/4A 



Liebe TI-Freunde ! Neue Hardware 

A:i Tl-Szciic tin sich 7..ir liiTcJiti^mi Krais. dnii HD-Zeichvil-EnveUenUlg .-ichrgcrSt isl etitwcdc 






liligtcu soJllen sich lilx:r ( 






Computer KontaMB-9/67 




Die RAVE99-Tast*tnr 



::■ .,:..-, .. ■ ■ -■■■■ I' ■■ ■ ■ 

r I -L ' in.'.r:-..-,,,,:-,,;,::.,,.-:- 



S %,e h e ?." S - V1 " i " : r : i S! M', A At Ty^nb. 



v L -:iii-:-,,nij. 






<l_w QUIT. Tilt die Fun^ioiici CTRLndL-1-KTNiuc]' 




Utilities 



Assembler-Sourcelisting 




TI-Software-Hitparade 



1. JOYpaint99 


(1) A,AS 


2. Rapid-Copy 


(8) A. AS 


3. TI-Ariistll 


(3) A,AS 


4. H.!i.\rt<>gankn(CK; 


(-) S,XB 


5. AxelF. 


(2} M,XB 


6. Micro-PinbaUn 


(-) S T AS 


7. DM 1 WW 3.5 


(9) S,AS 


S. WarGames 


(7) S.AS 


9. XB-Golf2.0 


(-) S,XB 


10. Submarine Com. 


(10) S,AS 


Der diesinalige Gewinner des Sofi 


arepakclca aus 


USA ist: 




klaus J. Holtgcn, Wcsrcrdorfcr Str. 10, 4300 Essen 12 






sc, wean BJ audi schwerfallt, so kuiz vur 




TIMer Worktop Rheinlanfl 




Depl. Allgemein + Software 




c/oMikeHeuser 




Karl-Mar*- All ee IS 




5000 Kctln 71 





□er groilte TI-S9/4A-Spezial 
fertjetztauchnachDeuticril 


•::- 


""* 


kMAIAI4:IMJMi 


4A Flyer (Flugsi mu ,ator aut Motiu 


DM 


69.- 


Spad XIII .<■■ Ii ioe in* : atoi auf Disk) 


DM 


79.- 


Extended Basic long ni 


DM 


99.- 


Tl-Mulliplan-Paket 


DM 


175.- 


Ed itor/ Asse mbler-Paket 


DM 


99.- 


Tl-Artist 


DM 


69.- 


Computer War (auf Diskette) 


DM 


75.- 


ll—VLK— »""::;;; 


i ,,..■ ,i . 

YSWYK 

'995757 



Remkiller2 

:ren vkle Pnv 1= Sprangbrfehle 



iic hiiufig. auf- GOSUB-Ki 



Sjwii.istwfsliii; von worde 



An alle 
Programm-Einsender! 



i, 6aH ein ausreichend 

,.;.. : ;-.. - ■ ..■.:■■::■■■ .-.-■ 

sollte, damii wir die Programme 
zurucksenden konnsn. 



Basic-Listing 

90 CALL INIT :i CALL LOADi- 



CLEAR : : SOTO ' 
35 DISPLAY ATI16, I 



["■lOUt'.OUTPUTirjlSPLAV '.VARIABLE '■ 
1. S**help»*6", OUTPUT, DISPLAY ,VARI 



;, CALI NEl.S»,IEILECI 



240 ZAEHL=ZAEHL-[ 
25S DISPLAY AT11C 



) ZAEHL :; IP 7U=2EIL 



■jl-lNTrHWy* 



Computer Koii-;-" .--'.-. 



Turbo-Pascal 99 - 
Das Anwenderhandbuch ist da! 






IBM-Kompatibilitat mil 
TURBO XT 


■■■>■■ . ■ ■ . ■ ■ ■ ..■■■;.. 

' ; : '■ ■ ■ ■ !, " ! '■'■ : - ;■'■ . ,..:■. ■'■..: ... i :■:: ■ ' ■ ■ ■■ ■ ■■■■ ■ ' • ■ ■ 
"■' ' . i.!..,l iii-.i.. i.:.in.!r,..i.fi. ,r, 1,-imHM k,-i- l^-i-i.-h^unliN.'Kri.ll.;:,:: 
■ ■■■' ■- ■" '■ ■■ ■, i , ■!.,., .,,K i ' , , ,,.,. I„„ ,,!,,,„ 






t"SA) Die ,* l- AifEiv | S | 



■ir Kalx'3 lt- Taec-Cic-ld zui-ii;k" 



IMultiplan (Teil 3) 



le ! eh1 '" Besc "5"* en - Ae = B L.t hue. wenn A Dicer kurze Ausfhif 

riel fortsetten. Al|mj H i denIlK j, tin,^ "' ilitdc'-lili'l-'i 'r-M'iw -■','■ 

' ll ' !f -IHtX , , .. ,. ;.,.,. ..i ,,,.,,. ... , IM-i II'.' UNI iv 

.ij.-K-ii.m ■■Multiple" - AnwcLsuiia ! auwmliii 
: ' 1 An.eisnugS. 

r S em3S te!r* Sprang- tleinermalsBoderwcnn IFNOT 

ingnDg. Anwcisung 1, Unit rUm^i ink- n fcamic-H =;■ pL- Syntax laut'etL 

Bucbsubeii V(Valnt) re ^fcha-i,;, «kr' "'in™' win misc'ist! wjrd die Anwe: 



'"=* mup- 



!l Ihmi-l!i,-i V.:L'kii::i."j!-ilEii 



M.wii,i-k,:.T:a au.fgciiihll. - : 



l.^i'^jiEii V^rr.::ii;:',:.id|- I 



Dcj Wahrhdtsscliali il-i l,.i- 












((A = lil. <C = n), ist tree, 
























istder Wah rheilsgchalr false. 


SUM (LEST*) 


RlW^^tea te^ 








SieSpnnlauet: 


f'^.-V in- Jr^S^ 


."■" " ' ;■ ',' 


ORiii E ::!„i'„., t l.ri«li, S L,n S :.l 












V-knupfan, OR" MA Hi. 




HC[-1] + KC[-2] -1- KC|-1] 










5UM(R1C1,R1C2,RLC3) 


<UM'.RC| ?;.RC[-:i:R('|-l]) 








ist. Er isriiUC ilann iulsc. wenti 


SUM(R1CI:RIC3) 


Si;Mil!('l-i]-RC(-l]) 



. Tl 99/4A Cmpul.KM,B8-l/«7 

Wic erfalirenc Basic-Pro- Hiur etfiyel a .in.ir.alii-.-li Jic Di.-.- Aimtisui:; sreiit lib; so( , k .jj,. Hunfction NOR- 

oli .'i-icii iiki-nni ilei! BiuKI. mi: .Icr.i LVUi''- V fieo rA'imcL r:iMi'-. : i:-. du i Li.-Tir.i: j:.i::i iri.n ^e,,) gewshlt iveitten. Auf 

]u[c[ . ' uehin VViTie auflantlien. liiGi '.piiciii'T lia'.e.ai Dm.- Hunt- m ci!ll . m T aiereo Zeilpunli 

„. aichmiiilfml.IJCK-BcfiliKvr- [ion tai-adlz! cine uu-zJichi= I Mil's- „., n ailra ,.|-, „.,.,>, E , Tipi fill 

'1 E.iniiJbc .i^i-cl':'iileii ^iixl. Li- lu ^'- k?Lnl ll, | :r | c uinaicr 

6 ■ iidertNT N/<ME ic Cursor-Task- ,11 crlk-kiTi. d ." Ho Ff> '-""f'-';*''- '" J<r 

' ^ " ' C , ' ' , i ,,,!,, l ' 

krtanlOa- F " L ' *= "Multiplau"-5y- 

,]an" W*i nielli Uher cine ^^^"sp^ 1 / 6 ^™^^ m ° n \ s Vir und die Dalendisfcrae in 



1 I- Arbeilsc 

matrk™™i: I F ]\ W1, "'" C "" Di^ajKbesondc.^ 

■ J-- r.:!l- -:.:!■■ INI" -Ll!.,! IL.JI- ^1 Aih::i! -hlattH ill! HllOplSpei- 



weili^LTi ZeJi-iluii- 1 >' 



, R1C1:R1I)CI) o 
i:RI'K:^iiib=.i.li. 









.. .i . Bk : m : ■«!,. UnserTlp 



6 Tips und Tricks 
fur den TI 99/4A 



KlopfeueinesSpechles 



lellOdasKom- 29: Nidi" /'■ licsthrei! 



Tl 99/4A 



DPatch- 
Programm in C 



Computer Kontakt &-9/S7 




Br Kontakt 8-9/B7 Tl 99/4 A 



100 Tl 99/4A Computer Koritakt B-9/B7 . 



Computer Kuntakt 


8-9/B7 




TI99/4A o, 




Peeks und Pokes f tir den TI 99/4 A 


Adresse 




Adresse 




(P = Peek) 


Auswirkung 


(P = Peek) 


Auswirkung 


28672, P 


P = 0: Sprachc nicht mdglich ; 


31878, P 


Vani, no. ■!,.- kii.'h-Ten heweeten 




P = 96o<lerP = 255: 




Sprites; = alleSpritcsruhen 




Sprache moglich 


31879, P 


Inlerrupttimer-Abfrage allc 


31572,0-255 


Taslaturgeschwindigkeit andern 




l/50Sokundt 


31740, a, b 


Voranderu rig dcs Tons bei 


31880, P 


liefert Zut'allszahl in Verbindung 




Warning, lieepusw. 




mit RANDOMIZE 


31744,0-15 


Festhalten des letzten Tons, 


31884,0-5 


neehseh Tusiatur-Modc 




9=laut,t5='eise 


31888.63.255 


schaltet alle Disk-LW aus 


31748.0-255 


VeranderungderCursor- 


,55.215 


schaltet alleDisk-LWein 




Blinkralu mid dorTondauur 


31931.0 


sehahei LIST- und SAVE-Schutz 


31788. 160 










!]l j ";:.lii',; 11 1 eh r moglich 




setzt ON WARN1NONLXT 


,19 


,4 


setzt ON WARNING STOP 




normale Operation " 

Sprite- VtraraBeriing 
(MAGNIFY) 


.14 


setzt UNTRACE 


'225 


,15 


setzt UNTRACE und NUM 




.16 


setzt TRACE 


,226 


Sprites in doppeller GroGe 


.64 


setzt ON BREAKNEXT 


,227 


n och m al i ge Verg roGe ru ng der 


, 128 


schaltet LIST- und SAVE-Schutz 




Sprites 






,232 


Einschaltert des Multicolor-Mode 


31 952, F 


P = 55:32K-Erweiterungistem; 


31794, P 


liefertdiegeradevorliandeue 




P<>55 : 32K-Erwciterung aus 




Tondauer 


31962,32 


zuruck/um Titelbild 


31804,a,b 


Riickkehr zum Titelbild : 


,255 


NeuslartXBmit Autostart 




Werte rait PEEK (2,8, b) holen 




DSKLLOAD 


,P 


in dert Cursor-B li nkrate 


31974, P. O 


l.rmgtbiidadrusscdcsVDP-Stat* 


31806.0 


notmalc: Operation 




(Ph + O) 


,16 


QUIT-Tast e ausschal ten 


32112,8 


iuchr ant Disk 1 nach? 


.32 


Sound uussi'halten 


32114,2 


nurnochSdirottaufdem 


,48 


Sound und QUIT aus 




Bildschirm 


,64 


■.L!|'l>i Sprisc-Rewegung 


.13 


dito 


,8(1 


stoppt Sprite -Bewcgung. QUIT 


,119 


/cidinci wirrcLinicn 






32187.9 


setzt Zeilcnnummerll 


,96 


stoppt Sprite -Bewegung und 


32188,1 


iinderi Farbc und liefer! SYNTAX 




Sound 




ERROR 


.128 


stoppt Sprite-Be weauns. Sound 


.127 


anderlFarbeundlieferl 




und QUIT aus 




BREAKPOINT 




bringlZufallszahlenin 


32630, 128 


Software- Reset zum Titelbild 




Verbindung mit RANDOMIZE 


32730,32 


dito 


31860.4 


umschalten XB nachTI-Basic, 


32961,51 


dito 




nach NEW 


,149 


Nach dem BREAK- Vers itch 




Autostart D SKI. LOAD 




stiirzt der Rcchner tolal ab ! 


31*66.0 


kein RUN oder LIST nach 








BREAK moglich 


ZLisjiinmongcsiulll ivl-:l: die si; Lisle von rier Capi- 




schaltet32K-Erweiterungaus 


iol Area Uiers Group. Harris urn. Pr.iijddlphk.. 


,255,33 


sell a! tet 32K -¥. rwei temng ein 


USA. Wer weitt-w CALL LOAD- oder CALL 


31873, 3-30 


erste Btldschirmzeilebei PRINT 


PEEKs kennt 


leile uns diese doch bitte mil. 


31877, P 


P = 32:Sprite-Koiiizideitz; 
P = 64' 5 Sprites in enter Riiihc 


25.™*" 


i.h„,.„, 



»2 Tl 99/4A 



Cnmpule'Kcr-.:- I 



Bausteine des TI 99/4A 



dem 64poHgEO Chip des I 



ielmehrdleMoglkhkcilei 

Nacb^lcHendfolgrefnc I 



RSTT 


1 l 




] 40 V CC 


u 




3 E 




i i 


















INT5 




]31 i'NTT/P15 




"! 








«i 








10 | 






INT ^C3 


IS I 








Ml 








is I 








18 | 
















ml 








i=,l 








»L 










Dcr I IspkltSkal : 






Skat 



1 * * *l I 



♦ # v 



♦ v ♦ 



Computet Kcntakl E-9/67 



V ^SEHLHIU^E. D6H_REST P 



Computer Kontakl 8-9/87 




2040 anz=anz*i 

20B0 IF COM-1 THEN 1560 ELS£ 1110 

2090 IF ZT<3 THEN RETURN 

2110 DISPLAY ATnB,17)SIZE<7):"<EN 

2130 IF ANZ-30 THEN 2170 
2140 CALL HCHARC15, 1,32,3201 
21S0 ZT-O ;i IF WEM=3 THEN 1110 
2160 IF WEM^l THEN 15S0 ELSE COM-I 

2180 CALL CLEAR 

22?0 PRINt'"SIE HABEN "iSCj" PUNIO 
2220 INPUT -NOCH EIN SPIEL a":JA» 

2240 DISPLAY AT<20,5*ZT+B>S1 IE 14) i 

22B0 DISPLAY AT(24,5*3T+8)SIZE<4> 
^FcS T I^T™ H <KRT<ZT)».. READ 
2310 DISPLAY AT<2I ,3*ZT+' 



2350 CALL HCHAR<22, ZT*3*12 
2360 CALL DELSPRITEtUt ) 



CQL'2 ELSE CQL=9 

)>*4»94):: CALL HCHAR<23, ZT*3*1 
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Tuning: 128KF 
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Lehrreich: "^ 

Tl Assembler Kurs II 




Lang erwartet: 
Tl-Assembler-Kurs III 
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Zeitsparend: 

Turbo-Assembler 
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Nutzllchs ' 
TMS 9900 Assembler 
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Best.-Kr. Tl 3 4S.- DM 
Best.-Nr. Tl 3a 20.- DM 
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Freeware a us 
Hamburg 

Die gifleu: Freeware-Da™ - 
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(7.ueriff ubir mehr 



Pressetaschenbuch 



Inset enten- 




verzeichnis 
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Ausgaben 
Anzahl der Hefte 

Buchstaben, Zahlen, Zeichen 
Bisheriger Preis 



Computer Kontakt 



5.4/5-12/1 1987 



ca. 800.000 
DM 33 - 



Kennwort 6aus 6 



Porto 
Preis fur Verpackung 



Druckfehler 
Bestatigung 



nvio.oc 
DM 0,00 
DM 22,- 



Bestellschein 



22 Mark 



Liefem Sie mir bitte die 800.000 Bucbsta- 
ben Zahien und Zeichen wie oben ange- 
geben zum Preis von 22 Mark. 
■ ■. ■. : ■■./ lb- 



T.S. Daiensysteme-Vertriebsgesellschaft mbH 



■tr»Be 45, 850O Mlirnherg SO, Tel. 0911/288286 



